|
|
|
|
|
|
|
ul2.usri2_flags = UF_NORMAL_ACCOUNT Or UF_SCRIPT
ul2.usri2_max_storage = USER_MAXSTORAGE_UNLIMITED
ul2.usri2_acct_expires = TIMEQ_FOREVER
ul2.usri2_logon_hours = VarPtr(HourList(O))
' Allow login only on Saturday from 11:00PM to midnight!
Call SetBitValue(HourList(), 7, 23, True)
res = NetUserAdd(0, 2, VarPtr(ul2), parm_err)
Debug.Print "Result: " & res
If res <> 0 Then Debug.Print "Error at index: " & parm_err
End Sub |
|
|
|
|
|